home *** CD-ROM | disk | FTP | other *** search
/ Power CD / Power CD ATARI-Rechner Lieben.iso / SPEZIAL / GEMVIEW / VERSION.3 / MODULS.SRC / PROCMODL / VFLIP / _VFLIP.S next >
Encoding:
Text File  |  1993-10-15  |  2.1 KB  |  60 lines
  1. module    EQU       "GVWR"
  2. intrface  EQU       0x0100
  3. gvw_ext   EQU       "    "
  4. MACRO gvw_name
  5.                    ;"----------------"
  6.           DC.B      "Vertical flip   "
  7.           ALIGN     16
  8.                    ;"----------------"
  9. ENDM
  10. MACRO gvw_copyright
  11.                    ;"------------------------"
  12.           DC.B      "V 1.00 Oct 22.`93 (c) by"
  13.           ALIGN     24
  14.           DC.B      "Dieter Fiebelkorn"
  15.           ALIGN     24
  16.           DC.B      "Grüner Weg 29a"
  17.           ALIGN     24
  18.           DC.B      "D-45768 Marl (Germany)"
  19.           ALIGN     24
  20.                    ;"------------------------"
  21. ENDM
  22.  
  23. spprt_mon EQU       0x0001
  24. spprt_col EQU       0x0002
  25. spprt_tc  EQU       0x0004
  26. spprt_all EQU       0x0007
  27.  
  28. flag_null EQU       0x0000
  29. flag_res  EQU       0x0001
  30.  
  31. rsvd_null EQU       0x0000
  32.  
  33.  
  34.           GLOBL     gvw_main
  35.           GLOBL     form_alert
  36.  
  37.           JMP       gvw_failed                                  ; $00
  38.           JMP       gvw_main                                    ; $06
  39.           DC.L      module                                      ; $0C
  40.           ALIGN     4
  41.           DC.W      intrface                                    ; $10
  42.           DC.W      spprt_all                                   ; $12
  43.           DC.W      flag_null                                   ; $14
  44.           DC.W      rsvd_null                                   ; $16
  45.           DC.W      rsvd_null                                   ; $18
  46.           DC.W      rsvd_null                                   ; $1A
  47.           DC.L      gvw_ext                                     ; $1C
  48.           ALIGN     4
  49.           gvw_name                                              ; $20
  50.           gvw_copyright                                         ; $30
  51. gvw_failed:                                                     ; $90
  52.           MOVE.W    #1, D0
  53.           LEA.L     str_failed, A0
  54.           JSR       form_alert
  55.           CLR.W     -(A7)
  56.           TRAP      #1
  57. str_failed:
  58.           DC.B      "[3][ | This is a GEM-View Module! | ][ Abort ]"
  59.           EVEN
  60.